home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / ell.lha / ell / src / Codes.md < prev    next >
Text File  |  1992-08-18  |  1KB  |  45 lines
  1. (*
  2.  *    ell2 - a redesign of ell
  3.  *
  4.  *    $RCSfile: Codes.md,v $
  5.  *    
  6.  *    purpose:    handle the terminals codes
  7.  *
  8.  *    $Author: grosch $
  9.  *    $Date: 1991/02/06 16:15:33 $
  10.  *)
  11.  
  12. DEFINITION MODULE Codes;
  13.  
  14. FROM Idents    IMPORT    tIdent;
  15. FROM Sets    IMPORT    tSet;
  16. FROM IO        IMPORT    tFile;
  17.  
  18. CONST cNoIndex    = -1;
  19.  
  20. VAR vMaxRecSetIndex, vMaxSetIndex, EmptyRecSetIndex: INTEGER;
  21.  
  22. TYPE tCode    = INTEGER;
  23.  
  24. PROCEDURE SetCode    (term: tIdent; code: tCode);
  25. PROCEDURE Code        (term: tIdent): tCode;
  26. PROCEDURE Term        (code: tCode): tIdent;
  27. PROCEDURE IsCoded    (term: tIdent): BOOLEAN;
  28. PROCEDURE IsCode    (code: tCode): BOOLEAN;
  29. PROCEDURE SetDefCode    (term: tIdent);
  30. PROCEDURE MaxCode    (): tCode;
  31.  
  32. PROCEDURE RecSetIndex    (set: tSet): INTEGER;
  33. PROCEDURE SetIndex    (set: tSet): INTEGER;
  34. PROCEDURE GetRecSet    (index: INTEGER; VAR set: tSet);
  35. PROCEDURE GetSet    (index: INTEGER; VAR set: tSet);
  36.  
  37. PROCEDURE WriteIndex    (f: tFile; index: INTEGER);
  38. PROCEDURE WriteRecIndex (f: tFile; index: INTEGER);
  39.  
  40. (* CODES_ )*
  41. PROCEDURE WriteCodes    (f: tFile);
  42. *( _CODES *)
  43.  
  44. END Codes.
  45.